home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / ELECTRON / 2687.ZIP / DEFAULT.MAC < prev    next >
Text File  |  1990-06-25  |  2KB  |  69 lines
  1. *--- DEFAULT MACRO FILE for SHAREWARE version of LSYSTEM V S2.0
  2. *    2/7/1990
  3. *--- This is an example of an LSYSTEM INCLUDE file.
  4. *
  5. .MACRO 74LS20 1A 1B 1C 1D 1Y 2Y 2A 2B 2C 2D 
  6. *
  7. *       DUAL 4 input NAND gates.
  8. *
  9.        LS20_1 1A 1B 1C 1D 1Y NAND4 (rise=9 fall=10)
  10.        LS20_2 2A 2B 2C 2D 2Y NAND4 (rise=9 fall=10)
  11. .ENDM
  12. *
  13. .MACRO 74LS73 1CK 1CLR 1K 2CK 2CLK 2J 2QN 2Q 2K 1Q 1QN 1J
  14. *
  15. *      DUAL JK flip-flops with CLEAR -- NE triggered.
  16. *
  17.        LS73_1 1CK 1CKN INV (delay=1)
  18.        LS73_2 2CK 2CKN INV (delay=1)
  19.        LS73_3 1CKN 1CLR 1J 1K 1Q 1QN JKFF_C_PE (rise=11 fall=15)
  20.        LS73_4 2CKN 2CLR 2J 2K 2Q 2QN JKFF_C_PE (rise=11 fall=15)
  21. .ENDM
  22.  
  23. .MACRO 74LS75 1NQ 1D 2D E3_4 3D 4D 4NQ 4Q 3Q 3NQ E1_2 2NQ 2Q 1Q
  24. *
  25. *      QUAD 4-BIT BISTABLE LATCH
  26. *
  27. GA1 E1_2 75A1 INV (RISE=4 FALL=5)
  28. GB1 E1_2 1D 75B1 AND2 (RISE=3 FALL=5)
  29. GC1 75A1 1Q 75C1 AND2 (RISE=3 FALL=5)
  30. GD1 75B1 75C1 1NQ NOR2 (RISE=5 FALL=5)
  31. GE1 1NQ 1Q INV (RISE=4 FALL=5)
  32. *
  33. GA2 E1_2 75A2 INV (RISE=4 FALL=5)
  34. GB2 E1_2 2D 75B2 AND2 (RISE=3 FALL=5)
  35. GC2 75A2 2Q 75C2 AND2 (RISE=3 FALL=5)
  36. GD2 75B2 75C2 2NQ NOR2 (RISE=5 FALL=5)
  37. GE2 2NQ 2Q INV (RISE=4 FALL=5)
  38. *
  39. GA3 E3_4 75A3 INV (RISE=4 FALL=5)
  40. GB3 E3_4 3D 75B3 AND2 (RISE=3 FALL=5)
  41. GC3 75A3 3Q 75C3 AND2 (RISE=3 FALL=5)
  42. GD3 75B3 75C3 3NQ NOR2 (RISE=5 FALL=5)
  43. GE3 3NQ 3Q INV (RISE=4 FALL=5)
  44. *
  45. GA4 E3_4 75A4 INV (RISE=4 FALL=5)
  46. GB4 E3_4 4D 75B4 AND2 (RISE=3 FALL=5)
  47. GC4 75A4 4Q 75C4 AND2 (RISE=3 FALL=5)
  48. GD4 75B4 75C4 4NQ NOR2 (RISE=5 FALL=5)
  49. GE4 4NQ 4Q INV (RISE=4 FALL=5)
  50. *
  51. .ENDM
  52.  
  53. *-- NON RETRIGGARABLE 2000 nS monostable.    [eg.   el IN OUT mono2000]
  54.  
  55. *-- A rising edge on pulse input IN will cause OUTPUT to switch HIGH for 2000nS
  56.  
  57. .macro MONO2000 in out
  58. elc in t3 t1 AND2 (delay = 1)
  59. elc t1 t2 inv      (delay = 1)
  60. elc t2 out inv    (rise = 1 FALL = 1997)
  61. elc out t3 inv    (delay = 1)
  62. .endm
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.